From 9e09f05f614c378c31979da67c9a72cf06bd5e00 Mon Sep 17 00:00:00 2001 From: justbur Date: Mon, 6 Jul 2015 15:50:42 -0400 Subject: [PATCH] Need cl for emacs < 25 --- which-key.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/which-key.el b/which-key.el index 7f5229d3f08..13b313dedd7 100644 --- a/which-key.el +++ b/which-key.el @@ -21,6 +21,8 @@ ;;; Code: +(require 'cl-macs) +(require 'cl-extra) (require 's) (defvar which-key-idle-delay 0.6 @@ -363,7 +365,7 @@ the maximum number of lines availabel in the target buffer." (dotimes (i n-lines) (setq lines (push - (seq-subseq keys (* i n-columns) (min n-keys (* (1+ i) n-columns))) + (cl-subseq keys (* i n-columns) (min n-keys (* (1+ i) n-columns))) lines))) (mapconcat (lambda (x) (apply 'concat x)) (reverse lines) "\n"))) @@ -384,7 +386,7 @@ the maximum number of lines availabel in the target buffer." (dotimes (p n-pages) (setq pages (push (which-key/create-page max-height n-columns - (seq-subseq formatted-keys (* p max-keys/page) + (cl-subseq formatted-keys (* p max-keys/page) (min (* (1+ p) max-keys/page) n-keys))) pages))) ;; not doing anything with other pages for now (setq pages (reverse pages) -- 2.30.2